From: Kenichi Handa <handa@m17n.org>
Date: Fri, 27 Feb 2009 00:48:03 +0000 (+0000)
Subject: (read_escape): Signal an error for invalid \UXXXXXXXX.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~1514
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=0415d2fb72d3e342de5d22698d93598892a45f4f;p=emacs.git

(read_escape): Signal an error for invalid \UXXXXXXXX.
---

diff --git a/src/lread.c b/src/lread.c
index 063adba1d9a..e4ba5229e20 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -2205,7 +2205,7 @@ read_escape (readcharfun, stringp)
       /* A Unicode escape. We only permit them in strings and characters,
 	 not arbitrarily in the source code, as in some other languages.  */
       {
-	int i = 0;
+	unsigned int i = 0;
 	int count = 0;
 
 	while (++count <= unicode_hex_count)
@@ -2222,7 +2222,8 @@ read_escape (readcharfun, stringp)
 		break;
 	      }
 	  }
-
+	if (i > 0x10FFFF)
+	  error ("Non-Unicode character: 0x%x", i);
 	return i;
       }